home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rokenbok 2.7
/
Rokenbok CD Vol-2.7z
/
Rokenbok CD Vol-2.iso
/
warranty_reply.asp
< prev
next >
Wrap
Text File
|
2002-01-30
|
14KB
|
314 lines
<HTML>
<HEAD>
<TITLE>Rokenbok Toy Company | Thank you for contacting Rokenbok!</TITLE>
<!--
Document Name: warranty_reply.asp
Creation Date: 01.07.01
Modification History:
-->
</HEAD>
<BODY BGCOLOR="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TEXT="#000000" LINK="0033CC" VLINK="#000066" ALINK="0033CC">
<%
'---------------------------------------------------
' variables for Lyris
'---------------------------------------------------
dim emailAddress ' the From field
dim subscribeTo ' the subject field for Lyris
' which is the mailing list subscribed to
' which is either text or aol
'---------------------------------------------------
' variables for Warranty Registration
' must use each name because a loop will not put them in order
'---------------------------------------------------
dim realname
dim Address
dim City
dim State
dim Zip
dim Country
dim Phone
dim Newsletter
dim ToyPurchased
dim ToyPurchased2
dim ToyPurchased3
dim WhoPurchased
dim FirstDiscover
dim TypePurchase
dim Features
dim ReceiveAsGift
dim ReasonForPurchase
dim PricePaid
dim StoreWherePurchased
dim PurchaserIs
dim PurchaserAge
dim WhoToyIsFor
dim NumToysOwned
dim NumToysPurchased
dim ChildrenUnder17InHouse
dim AgeChildInHouse
dim PersCompAtHome
dim AccessToInternet
dim SuggestionsForToys
dim OtherProductsLikeToSee
dim CompareToOtherToys
dim OtherConstructionToys
dim AnnualHouseholdIncome
dim KeyCode
realname = Request.Form("realname")
Address = Request.Form("Address")
City = Request.Form("City")
State = Request.Form("State")
Zip = Request.Form("Zip")
Country = Request.Form("Country")
Phone = Request.Form("Phone")
Newsletter = Request.Form("Newsletter")
ToyPurchased = Request.Form("ToyPurchased")
ToyPurchased2 = Request.Form("ToyPurchased2")
ToyPurchased3 = Request.Form("ToyPurchased3")
WhoPurchased = Request.Form("WhoPurchased")
FirstDiscover = Request.Form("FirstDiscover")
TypePurchase = Request.Form("TypePurchase")
Features = Request.Form("Features")
ReceiveAsGift = Request.Form("ReceiveAsGift")
ReasonForPurchase = Request.Form("ReasonForPurchase")
PricePaid = Request.Form("PricePaid")
StoreWherePurchased = Request.Form("StoreWherePurchased")
PurchaserIs = Request.Form("PurchaserIs")
PurchaserAge = Request.Form("PurchaserAge")
WhoToyIsFor = Request.Form("WhoToyIsFor")
NumToysOwned = Request.Form("NumToysOwned")
NumToysPurchased = Request.Form("NumToysPurchased")
ChildrenUnder17InHouse = Request.Form("ChildrenUnder17InHouse")
AgeChildInHouse = Request.Form("AgeChildInHouse")
PersCompAtHome = Request.Form("PersCompAtHome")
AccessToInternet = Request.Form("AccessToInternet")
SuggestionsForToys = Request.Form("SuggestionsForToys")
OtherProductsLikeToSee = Request.Form("OtherProductsLikeToSee")
CompareToOtherToys = Request.Form("CompareToOtherToys")
OtherConstructionToys = Request.Form("OtherConstructionToys")
AnnualHouseholdIncome = Request.Form("AnnualHouseholdIncome")
KeyCode = Request.Form("KeyCode")
dim subjectWarranty ' the subject field for the warranty
If SuggestionsForToys = "" Then
subjectWarranty = "Warranty"
Else
subjectWarranty = "Warranty - Attention Required!"
End If
'---------------------------------------------------
' cstr converts to a string
'---------------------------------------------------
emailAddress = cstr(request.form("email"))
'---------------------------------------------------------------------
' test for aol email address
'---------------------------------------------------------------------
if (instr(ucase(emailAddress),"@AOL.COM") > 0) then
subscribeTo = "subscribe rokenbok_updates_aol"
'---------------------------------------------------------------------
' not aol, or plain list
'---------------------------------------------------------------------
else
subscribeTo = "subscribe rokenbok_updates"
end if
'---------------------------------------------------------------------
' send email to lyris
'---------------------------------------------------------------------
If Newsletter = "subscribe" Then
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="lyris@lyris.rokenbok.com"
cdoMail.from=emailAddress
cdoMail.subject=subscribeTo
cdoMail.Body=" "
cdoMail.Send
set cdoMail=nothing
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="listcert@rokenbok.com"
cdoMail.from=emailAddress
cdoMail.subject=subscribeTo
cdoMail.Body="warranty_reply "
cdoMail.Send
set cdoMail=nothing
'---------------------------------------------------------------------
' send confirmation to rokenbok
'---------------------------------------------------------------------
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="maillist@rokenbok.com"
cdoMail.from="Lyris"
cdoMail.subject="register subscribe " + emailAddress
cdoMail.Body = emailAddress + ", " + subscribeTo
cdoMail.Send
set cdoMail = nothing
End If
'---------------------------------------------------------------------
' send Warranty Information to Rokenbok - register@rokenbok.com
'---------------------------------------------------------------------
set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.to="register@rokenbok.com"
cdoMail.from=emailAddress
cdoMail.subject=subjectWarranty
dim bodyText
bodyText = bodyText + "realname: " + realname + vbcrlf + vbcrlf
bodyText = bodyText + "E-mail: " + emailAddress + " mailto:" + emailAddress + vbcrlf + vbcrlf
bodyText = bodyText + "Address: " + Address + vbcrlf + vbcrlf
bodyText = bodyText + "City: " + City + vbcrlf + vbcrlf
bodyText = bodyText + "State: " + State + vbcrlf + vbcrlf
bodyText = bodyText + "Zip: " + Zip + vbcrlf + vbcrlf
bodyText = bodyText + "Country: " + Country + vbcrlf + vbcrlf
bodyText = bodyText + "Phone: " + Phone + vbcrlf + vbcrlf
bodyText = bodyText + "SuggestionsForToys: " + SuggestionsForToys + vbcrlf + vbcrlf
bodyText = bodyText + "Newsletter: " + Newsletter + vbcrlf + vbcrlf
bodyText = bodyText + "ToyPurchased: " + ToyPurchased + vbcrlf + vbcrlf
bodyText = bodyText + "ToyPurchased2: " + ToyPurchased2 + vbcrlf + vbcrlf
bodyText = bodyText + "ToyPurchased3: " + ToyPurchased3 + vbcrlf + vbcrlf
bodyText = bodyText + "WhoPurchased: " + WhoPurchased + vbcrlf + vbcrlf
bodyText = bodyText + "FirstDiscover: " + FirstDiscover + vbcrlf + vbcrlf
bodyText = bodyText + "TypePurchase: " + TypePurchase + vbcrlf + vbcrlf
bodyText = bodyText + "Features: " + Features + vbcrlf + vbcrlf
bodyText = bodyText + "ReceiveAsGift: " + ReceiveAsGift + vbcrlf + vbcrlf
bodyText = bodyText + "ReasonForPurchase: " + ReasonForPurchase + vbcrlf + vbcrlf
bodyText = bodyText + "PricePaid: " + PricePaid + vbcrlf + vbcrlf
bodyText = bodyText + "StoreWherePurchased: " + StoreWherePurchased + vbcrlf + vbcrlf
bodyText = bodyText + "PurchaserIs: " + PurchaserIs + vbcrlf + vbcrlf
bodyText = bodyText + "PurchaserAge: " + PurchaserAge + vbcrlf + vbcrlf
bodyText = bodyText + "WhoToyIsFor: " + WhoToyIsFor + vbcrlf + vbcrlf
bodyText = bodyText + "NumToysOwned: " + NumToysOwned + vbcrlf + vbcrlf
bodyText = bodyText + "NumToysPurchased: " + NumToysPurchased + vbcrlf + vbcrlf
bodyText = bodyText + "ChildrenUnder17InHouse: " + ChildrenUnder17InHouse + vbcrlf + vbcrlf
bodyText = bodyText + "AgeChildInHouse: " + AgeChildInHouse + vbcrlf + vbcrlf
bodyText = bodyText + "PersCompAtHome: " + PersCompAtHome + vbcrlf + vbcrlf
bodyText = bodyText + "AccessToInternet: " + AccessToInternet + vbcrlf + vbcrlf
bodyText = bodyText + "OtherProductsLikeToSee: " + OtherProductsLikeToSee + vbcrlf + vbcrlf
bodyText = bodyText + "CompareToOtherToys: " + CompareToOtherToys + vbcrlf + vbcrlf
bodyText = bodyText + "OtherConstructionToys: " + OtherConstructionToys + vbcrlf + vbcrlf
bodyText = bodyText + "AnnualHouseholdIncome: " + AnnualHouseholdIncome + vbcrlf + vbcrlf
bodyText = bodyText + "KeyCode: " + KeyCode + vbcrlf + vbcrlf
cdoMail.Body = bodyText
cdoMail.Send
set cdoMail = nothing
%>
<CENTER>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><A NAME="TOP"></A>
<TD ROWSPAN="2" WIDTH="392" VALIGN="TOP"><A HREF="index.html""><IMG SRC="images/toplogo1.gif" WIDTH="148" HEIGHT="58" BORDER="0" ALT="Rokenbok® System"></A><IMG SRC="images/toplogo2.gif" WIDTH="244" HEIGHT="58"></TD>
<TD VALIGN="TOP"><A HREF="about.html"><IMG SRC="images/1aboutup.gif" WIDTH="58" HEIGHT="36" ALT="About Us" BORDER="0"></A><A HREF="learning.html"><IMG SRC="images/1learnup.gif" WIDTH="97" HEIGHT="36" BORDER="0" ALT="Learning Benefits"></A><A HREF="support.html"><IMG SRC="images/1suppup.gif" WIDTH="54" HEIGHT="36" ALT="Support" BORDER="0"></A><a href="redirect/contact.html"><IMG SRC="images/1contaup.gif" WIDTH="66" HEIGHT="36" ALT="Contact Us" BORDER="0"></A><a href="redirect/dealer_loc.html"><IMG SRC="images/1dealup.gif" WIDTH="93" HEIGHT="36" BORDER="0" ALT="Dealer Locator"></A></TD>
</TR>
<TR>
<TD VALIGN="TOP"><IMG SRC="images/top_blue_stripe.gif" WIDTH="275" HEIGHT="22"><IMG SRC="images/nodeutsch.gif" WIDTH="93" HEIGHT="22" BORDER="0"></TD>
</TR>
<TR VALIGN="TOP">
<TD COLSPAN="2"><IMG SRC="images/top_corner.gif" WIDTH="47" HEIGHT="42"><A HREF="whatis/index.html"><IMG SRC="images/1whatup.gif" WIDTH="140" HEIGHT="42" ALT="What is Rokenbok?" BORDER="0"></A><A HREF="catalog/index.html"><IMG SRC="images/1catup.gif" WIDTH="145" HEIGHT="42" ALT="Toy Catalog" BORDER="0"></A><a href="redirect/czone.html"><IMG SRC="images/1constup.gif" WIDTH="143" HEIGHT="42" ALT="Construction Zone" BORDER="0"></A><IMG SRC="images/top_grey_mid.gif" WIDTH="134" HEIGHT="42"><IMG SRC="images/top_curve_about.gif" WIDTH="151" HEIGHT="42"></TD>
</TR>
</TABLE>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD WIDTH="20" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="400"></TD>
<TD WIDTH="580" VALIGN="TOP"><IMG SRC="images/ahdwarr.gif" WIDTH="580" HEIGHT="26" ALT="WARRANTY REGISTRATION"><BR>
<BR>
<table width="580" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" COLSPAN="2"><IMG SRC="images/bhdthank.gif" WIDTH="400" HEIGHT="23" ALT="Thank You" VSPACE="10"></td>
</tr>
<tr>
<td width="11" valign="top"><img src="images/spacer.gif" width="11" height="10"></td>
<td VALIGN="TOP" WIDTH="569"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">Thank You, your Warranty Information has been submitted!</FONT></td>
</tr>
</table>
</TD>
<TD WIDTH="10" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
<TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"><IMG SRC="images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
<TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
<TD WIDTH="126" VALIGN="TOP" BGCOLOR="#99CCFF">
<!--Insert callout text in column below-->
<BR>
</TD>
<TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
</TR>
<TR>
<TD VALIGN="TOP" COLSPAN="2"> </TD>
<TD WIDTH="10" VALIGN="TOP"> </TD>
<TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"> </TD>
<TD VALIGN="BOTTOM" BGCOLOR="#99CCFF" COLSPAN="3"><IMG SRC="images/corner_about.gif" WIDTH="146" HEIGHT="15"></TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR VALIGN="TOP">
<TD WIDTH="20"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="10"></TD>
<TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#0033CC"><A HREF="index.html"">Home</A>
| <A HREF="whatis/index.html">What is Rokenbok?</A> | <A HREF="catalog/index.html">Toy
Catalog</A> | <a href="redirect/czone.html">Construction Zone</A>
| <A HREF="about.html">About Us</A> | <A HREF="learning.html">Learning
Benefits</A> | <A HREF="support.html">Support</A> | Contact Us<BR>
<a href="redirect/dealer_loc.html">Dealer Locator</A> | <a href="redirect/mailing_list.html">Join
Mailing List</A> | <a href="redirect/warranty.html">Warranty Registration</A> |
<A HREF="privacy.html">Privacy Statement</A> | <A HREF="terms.html">Terms
of Use</A><BR>
©2002 by Rokenbok Toy Company. All Rights Reserved.</FONT></TD>
</TR>
</TABLE>
<BR>
</CENTER>
</BODY>
</HTML>